Hệ thống quản lý nguồn nhân lực Dự án năm cuối trong c#

Connection.vb
project /

1 Imports System.Data.SqlClient
2
3 Module connection
4
5     Dim con As SqlConnection
6
7     Public Sub createConnection()
8
9         con = New SqlConnection
10         con.ConnectionString = "Data Source=AGENT-92-PC;Initial Catalog=HRMS;Integrated Security=true;"
11         con.Open()
12
13     End Sub
14
15     Private Sub checkConnection()
16
17         If con Is Nothing OrElse con.State = ConnectionState.Closed Then
18             createConnection()
19         End If
20
21     End Sub
22
23     Public Function getDataReader(ByVal SQL As String) As SqlDataReader
24
25         checkConnection()
26         Dim cmd As New SqlCommand(SQL, con)
27         Dim dr As SqlDataReader
28         dr = cmd.ExecuteReader
29         Return dr
30
31     End Function
32
33     Public Function getDataTable(ByVal SQL As String) As DataTable
34
35         checkConnection()
36         Dim cmd As New SqlCommand(SQL, con)
37         Dim table As New DataTable
38         Dim da As New SqlDataAdapter(cmd)
39         da.Fill(table)
40         Return table
41
42     End Function
43
44     Public Sub executeQuery(ByVal SQL As String)
45
46         checkConnection()
47         Dim cmd As New SqlCommand(SQL, con)
48         cmd.ExecuteNonQuery()
49
50     End Sub
51
52     Public Sub disableRights(ByRef btn1 As CloudToolkitN6.CloudButton, ByRef btn2 As CloudToolkitN6.CloudButton, ByRef btn3 As CloudToolkitN6.CloudButton, ByRef btn4 As CloudToolkitN6.CloudButton, ByRef menu As MenuStrip)
53
54         btn1.Enabled = False
55         btn2.Enabled = False
56         btn3.Enabled = False
57         btn4.Enabled = False
58         menu.Enabled = False
59
60     End Sub
61
62
63     Public Sub enableRights(ByRef btn1 As CloudToolkitN6.CloudButton, ByRef btn2 As CloudToolkitN6.CloudButton, ByRef btn3 As CloudToolkitN6.CloudButton, ByRef btn4 As CloudToolkitN6.CloudButton, ByRef menu As MenuStrip)
64
65         btn1.Enabled = True
66         btn2.Enabled = True
67         btn3.Enabled = True
68         btn4.Enabled = True
69         menu.Enabled = True
70
71     End Sub
72
73 End Module